home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / The World of Computer Software.iso / f1280_41.zip / INSTALL.DAT < prev    next >
Text File  |  1992-10-28  |  41KB  |  1,762 lines
  1. /*--------------------------------------------------------------------------
  2.   File Name: install.dat
  3.  
  4.   History: Cheok K. Lai (June 22, 1992) File created
  5.        Robert Gilsdorf (August 27, 1992) File ammended
  6.   Description: This is a script file that automates the installation process 
  7.            of the Fahrenheit VA display drivers.
  8. ---------------------------------------------------------------------------*/
  9. @DefineProject
  10.     @Name      = "Fahrenheit"
  11.     @Version   = "4.1"
  12.     @Immediate = 1 
  13.     @Subdir    = "\\"
  14.     @OutDrive  = C
  15. @EndProject
  16.  
  17. /*---------------------------- Define String -----------------------------*/
  18. @DefineVars
  19.  @Qstring @msgDDI       = "Display Driver Installation"
  20.  @Qstring @msgDrive     = "Please Select Destination Drive:"
  21.  @Qstring @msgDir       = "Please Enter a Directory name or select ENTER to accept default."
  22.  @Qstring @msgPSAV      = "Please Select Version:"
  23.  @Qstring @msgPSAA      = "Please Select An Application:"
  24.  @Qstring @msgDDNE      = "does not exist."
  25.  @Qstring @msgCont      = "If you choose to continue, one will be created."
  26. /*  @Qstring @msgNoFile    = "Your input directory may be missing some files:" */
  27.  @Qstring @msgNoFile    = "Some files are missing in your input directory:"
  28.  @Qstring @msgNPI       = "may not be properly installed."
  29.  @Qstring @Reenter      = " Enter Again"
  30.  @Qstring @Cont         = "  Continue  "
  31.  @Qstring @NameWin      = "Microsoft Windows"
  32.  @Qstring @NameCADsys   = "Computer Aided Design"
  33.  @Qstring @NameACAD     = "AutoCAD"
  34.  @Qstring @NameCADKey   = "CADKey"
  35.  @Qstring @NameCADvance = "CADVance"
  36.  @Qstring @NameDataCAD  = "DataCAD"
  37.  @Qstring @NameGenCADD  = "Generic CADD"
  38.  @Qstring @NameMicroCAD = "MicroStation"
  39.  @Qstring @NameVersaCAD = "VersaCAD"
  40.  @Qstring @NameDesk     = "Desktop Publishing"
  41.  @Qstring @NameGem      = "GEM Desktop"
  42.  @Qstring @NameVentura  = "Ventura Publisher"
  43.  @Qstring @NameLotus    = "Lotus 1-2-3"
  44.  @Qstring @NameWord     = "Word Processing"
  45.  @Qstring @NameWP       = "WordPerfect"
  46.  @Qstring @NameMSWord   = "Microsoft Word"
  47.  @Qstring @NameWS       = "WordStar"
  48.  @Qstring @NameUtil     = "Orchid Utilities"
  49.  @Qstring @NameMore     = "More...."
  50.  @Qstring @NameOS2       = "IBM OS/2"
  51.  @Qstring @NameSCO       = "SCO Unix"
  52.  @Qstring @NameIntractv  = "Interactive Unix"
  53.  @Qstring @NameOtherp    = "Other Orchid Products"
  54.  @Qstring @NameTchsupt   = "Technical Support"
  55.  @Qstring @NameSample    = "Build Voice Notes Playback Diskette" 
  56.  @EndVars
  57.  
  58. /*--------------------- Introduction Message -----------------------------*/
  59. @Display
  60. @If (@CheckCard ("c000", "00F6", "Fahrenheit VA") == 1)
  61.   @Goto MenuJumper
  62. @Elseif (@CheckCard ("c000", "011c", "Fahrenheit 1280") == 1)
  63.   @Goto MenuJumper
  64. @Else
  65.  @Cls
  66.  
  67.         █████████████████ ERROR ████████████████
  68.         █                                      █
  69.         █  An Orchid Fahrenheit video adapter  █
  70.         █  is not detected in your system.     █
  71.         █                                      █
  72.         █  If you choose to continue this      █
  73.         █  installation, the driver will not   █
  74.         █  respond correctly.                  █
  75.         █                                      █
  76.         █  PRESS F3 TO ABORT INSTALLATION      █
  77.         █                                      █
  78.         █                                      █
  79.         █                                      █
  80.         ████████████████████████████████████████
  81.  
  82.  @Pause
  83. @Endif
  84.  
  85.  
  86.     
  87.  
  88. MenuJumper:
  89. @cls
  90. @If (@CheckCard ("C000", "00F6", "Fahrenheit VA") == 1)
  91.  
  92.  
  93.  
  94.  
  95.  
  96.                Orchid Fahrenheit VA Video Adapter
  97.  
  98.  
  99.               Display Driver Installation Program
  100.  
  101.  
  102.                    Disk Release 4.1
  103.  
  104.  
  105.  
  106.  
  107.   @Pause
  108. @Elseif (@CheckCard ("C000", "011C", "Fahrenheit 1280") == 1)
  109.  
  110.  
  111.  
  112.  
  113.  
  114.               Orchid Fahrenheit 1280 Video Adapter
  115.  
  116.  
  117.               Display Driver Installation Program
  118.  
  119.  
  120.                    Disk Release 4.1
  121.  
  122.  
  123.  
  124.  
  125.   @Pause
  126.  
  127.  
  128. @Cls
  129. @Endif
  130.  
  131. @If (@Chk2e8)
  132.  
  133.         ████████████████ Warning ███████████████
  134.         █                                      █
  135.         █  Fax Modem OR Serial Port OR Scanner █
  136.         █  Adapter is utlizing the I/O port of █
  137.         █  Fahrenheit Video Adapter.           █
  138.         █                                      █
  139.         █  Please reconfigure your Fax Modem   █
  140.         █  OR Serial Port OR Scanner at other  █
  141.         █  I/O port address, i.e. Avoid I/O    █
  142.         █  port address 2e8.                   █
  143.         █                                      █
  144.         █                                      █
  145.         █  You may continue the Installation,  █
  146.         █  and reconfigure your I/O port       █
  147.         █  address after Installation is       █
  148.         █  completed.                          █
  149.         █                                      █
  150.         ████████████████████████████████████████
  151. @Pause
  152. @Endif
  153.  
  154. @EndDisplay
  155.  
  156.  
  157.  
  158. /*--------------------- Drive C: check for Installation-----------------*/
  159.  
  160. @If ("@Indrive"=="C")
  161.     @Display
  162.  
  163.     The Install Program must be run from a Floppy Drive.  Please use the  
  164.     <ESC> key and start over from the Floppy drive.
  165.  
  166.      @Pause
  167.     @Abort
  168.    @EndDisplay
  169. @EndIf
  170.  
  171. /*---------------------- Installation Main Menu --------------------------*/
  172. MenuMain:
  173.  @FlushOptions
  174.  @EnableF1(1)
  175.  @GetOption
  176.  @Cls
  177.   @Option 1000 = "@NameWin"
  178.   @Option 4000 = "@NameLotus"
  179.   @Option 2000 = "@NameCADsys"
  180.   @Option 3000 = "@NameDesk"
  181.   @Option 5000 = "@NameWord"
  182.   @Option 5500 = "@NameSample"
  183.   @Option 6000 = "@NameUtil"
  184.   @Option 7000 = "@NameMore"
  185.  @EndOption
  186.  
  187.  @If (@Esc)
  188.      @Exit
  189.  @Elseif (@KeyF1)
  190.      @Goto MenuMainHelp
  191.  @ElseIf (1000 [= @Option)
  192.      @Goto MenuWin
  193.  @ElseIf (2000 [= @Option)
  194.      @Goto MenuCADsys
  195.  @ElseIf (3000 [= @Option)
  196.      @Goto MenuDesktop
  197.  @ElseIf (4000 [= @Option)
  198.      @Goto MenuLotus
  199.  @ElseIf (5000 [= @Option)
  200.      @Goto MenuWordProcess
  201.  @ElseIf (5500 [= @Option)
  202.      @Goto MenuSample
  203.  @ElseIf (6000 [= @Option)
  204.      @Goto MenuUtility
  205.  @ElseIf (7000 [= @Option)
  206.      @Goto MenuInfo
  207.  @Else
  208.      @Goto MenuMain
  209.  @Endif
  210.  
  211. /*--------------------- Handle Information Menu  ----------------------------*/
  212. MenuInfo:
  213. @ClearOption(7010)
  214. @ClearOption(7020)
  215. @ClearOption(7030)
  216. @ClearOption(7040)
  217. @ClearOption(7050)
  218.  @EnableF1(0)
  219.  @GetOption
  220.  @Cls
  221.     
  222.  
  223.  
  224.  
  225.  
  226.  
  227.  
  228.  
  229.  
  230.  
  231.  
  232.  
  233.  
  234.   @Option 7010 = "@NameOS2"
  235.   @Option 7020 = "@NameSCO"
  236.   @Option 7030 = "@NameIntractv"
  237.   @Option 7040 = "@NameOtherp"
  238.   @Option 7050 = "@NameTchsupt"
  239.  
  240.  
  241.   @EndOption
  242.  
  243.  
  244.  @If (@Esc)
  245.      @Goto MenuMain
  246. @ElseIf (7010 [=@Option)
  247.      @Help ("@ExePath\\install.hlp", "HelpOS2", "EndOS2")
  248. @ElseIf (7020 [=@Option)
  249.      @Help ("@ExePath\\install.hlp", "HelpSCO", "EndSCO")
  250. @ElseIf (7030 [=@Option)
  251.      @Help ("@ExePath\\install.hlp", "HelpIntractv", "EndIntractv")
  252. @ElseIf (7040 [=@Option)
  253.      @Help ("@ExePath\\install.hlp", "HelpOtherp", "EndOtherp")
  254. @ElseIf (7050 [=@Option)
  255.      @Help ("@ExePath\\install.hlp", "HelpTchsupt", "EndTchsupt")
  256.  
  257. @endif
  258. @Goto MenuInfo
  259.  
  260. /*--------------------- Handle Help  Menu  ----------------------------*/
  261.  
  262.  
  263. MenuMainHelp:
  264.  
  265. @If (1000 [= @Option)  /* Windows */
  266.   @Help ("@ExePath\\install.hlp", "HelpWin", "EndWin")
  267. @ElseIf (4000 [= @Option)  /* Lotus */
  268.   @Help ("@ExePath\\install.hlp", "HelpLotus", "HelpLotusInst")
  269. @Elseif (2000 [= @Option) /* CAD's */
  270.   @Help ("@ExePath\\install.hlp", "HelpCADMain", "EndCADMain")
  271. @Elseif (3000 [= @Option) /* Desktop */
  272.   @Help ("@ExePath\\install.hlp", "HelpDeskMain", "EndDeskMain")
  273. @Elseif (5000 [= @Option) /* Word Process */
  274.   @Help ("@ExePath\\install.hlp", "HelpWordPMain", "EndWordPMain")
  275. @Elseif (5500 [= @Option) /* Word Process */
  276.   @Help ("@ExePath\\install.hlp", "HelpCopy", "EndCopy")
  277. @Elseif (6000 [= @Option) /* Utility */
  278.   @Help ("@ExePath\\install.hlp", "HelpUtilMain", "EndUtilMain")
  279. @Elseif (7000 [= @Option) /* More.... */
  280.   @Help ("@ExePath\\install.hlp", "HelpMore", "EndMore")
  281. @EndIf   
  282.  
  283. @Goto MenuMain
  284.  
  285. /*--------------- Windows 3.x Driver Installation (1000) -----------------*/
  286. MenuWin:
  287.  
  288. @EnableF1(0)
  289. @GetOutDrive
  290.  @Suppress A
  291.  @Suppress B 
  292.  @Cls
  293.  @NameWin @msgDDI
  294.  @msgDrive
  295. @EndOutDrive
  296. @If (@Esc) @Goto MenuMain @EndIf
  297.  
  298. @GetSubdir
  299.  @Default = "\\WINDOWS"    
  300.  @Cls
  301.  @NameWin @msgDDI
  302.  @msgDir
  303.  
  304.  
  305. @EndSubdir
  306. @If (@Esc) @Goto MenuWin @EndIf
  307.  
  308. @ClearOption(1)
  309. @ClearOption(2)
  310. @EnableF1(0)
  311. @GetOption
  312.  @LocalWindow (10,39) 
  313.  @If (@Exists "@OutDrive:\\@SubDir" == 0)
  314.   @Cls
  315.   @NameWin @msgDDI
  316.   @OutDrive:@SubDir @msgDDNE
  317.   @msgCont
  318.  @ElseIf ((@Exists "@OutDrive:\\@SubDir\\winver.exe" == 0) ||
  319.       (@Exists "@OutDrive:\\@SubDir\\win.ini" == 0))
  320.   @Cls
  321.   @NameWin @msgDDI
  322.   @msgNoFile
  323.   @OutDrive:@SubDir
  324.   @NameWin @msgNPI
  325.  @Else
  326.   @Goto CopyFileWin
  327.  @EndIf
  328.  @Option 1 = "@Reenter"
  329.  @Option 2 = "@Cont"
  330. @EndOption
  331. @If ((@Esc) || (1 [= @Option))
  332.   @Goto MenuWin
  333. @Endif
  334.                
  335. CopyFileWin:
  336. @DefineDisk
  337. @Label = "Disk #1"
  338. @BeginLib FAHDRVVA.001 
  339.  
  340.  @F orchidf.cpl  @O @OutDrive:\@SubDir\SYSTEM\*.*
  341.  @F orchidf.hlp  @O @OutDrive:\@SubDir\SYSTEM\*.* 
  342.  @F orchidf.2gr  @O @OutDrive:\@SubDir\SYSTEM\*.*  
  343.  @F orchidf.drv  @O @OutDrive:\@SubDir\SYSTEM\*.*
  344.  @F orchid1.drv  @O @OutDrive:\@SubDir\SYSTEM\*.*
  345.  
  346.  @If (@CheckFile ("@OutDrive:\\@SubDir\\winver.exe", "207", "Windows Version 3.00"))
  347.   @F orchid.exe  @O @OutDrive:\@SubDir\*.*
  348.   @F orchd30.inf @O @OutDrive:\@SubDir\SYSTEM\orchidf.inf
  349.   @F orchd30.386 @O @OutDrive:\@SubDir\SYSTEM\*.* 
  350.   @F orchd30.3gr @O @OutDrive:\@SubDir\SYSTEM\*.* 
  351.  @Else
  352.   @F orchidf.inf @O @OutDrive:\@SubDir\SYSTEM\*.* 
  353.   @F orchidf.386 @O @OutDrive:\@SubDir\SYSTEM\*.* 
  354.   @F orchidf.3gr @O @OutDrive:\@SubDir\SYSTEM\*.*
  355.  @Endif
  356.  
  357.  @If (@CheckCard ("c000", "00F6", "Fahrenheit VA") == 1)
  358.   @F voicente.grp @O @OutDrive:\@SubDir\*.* 
  359.   @F orchnote.exe @O C:\WINDOWS\SYSTEM\*.* 
  360.   @F vmp_mm.dll   @O C:\WINDOWS\SYSTEM\*.* 
  361.   @F vctl.dll     @O C:\WINDOWS\SYSTEM\*.* 
  362.   @F orchhook.dll @O C:\WINDOWS\SYSTEM\*.* 
  363.   @F ovn.hlp      @O C:\WINDOWS\SYSTEM\*.*
  364.   @F orcsnd.drv   @O @OutDrive:\@SubDir\SYSTEM\*.*
  365.   @F sndsetup.cpl @O @OutDrive:\@SubDir\SYSTEM\*.*
  366.   @F sndsetup.hlp @O @OutDrive:\@SubDir\SYSTEM\*.*
  367.  @Endif
  368.  
  369.  
  370. @EndLib 
  371. @EndDisk
  372.  
  373. @Display
  374.  @If (@CheckFile ("@OutDrive:\\@SubDir\\winver.exe", "207", "Windows Version 3.00"))
  375.   Modifying WIN.INI of Windows 3.0.
  376.   @DeleteStr ("@OutDrive:\\@SubDir\\win.ini", "windows", "run", "orchid.exe")
  377.   @WriteFile ("@OutDrive:\\@SubDir\\win.ini", "windows", "load=", "orchid.exe", "APPEND")
  378.  @Elseif (@Exists "@OutDrive:\\@SubDir\\orchid.ini" == 0)
  379.   Modifying WIN.INI of Windows 3.1
  380.   @WriteFile ("@OutDrive:\\@SubDir\\win.ini", "windows", "run=", "control.exe", "APPEND")
  381.  @Elseif (@Exists "@OutDrive:\\@SubDir\\progman.orc" == 0)
  382.   @CatFiles ("@OutDrive:\\@SubDir\\progman.ini", "@OutDrive:\\@SubDir\\progman.orc")
  383.  @Endif
  384.  
  385.  @If (@CheckCard ("c000", "00F6", "Fahrenheit VA") == 1)
  386.   @WriteFile ("@OutDrive:\\@SubDir\\progman.ini", "groups", "Group99=", "@OutDrive:\\@SubDir\\voicente.grp", "APPEND")
  387.   @WriteFile ("@OutDrive:\\@SubDir\\system\\setup.inf","Installable.Drivers","FahrenheitVA", "FahrenheitVA = x:orcsnd.drv, \"wave\", \" Orchid Fahrenheit VA\", ,, ", "REPLACE") 
  388.   @WriteFile ("@OutDrive:\\@SubDir\\system.ini", "drivers", "Wave=", "WAVE=ORCSND.DRV", "REPLACE")
  389.  @Endif
  390.  
  391. @EndDisplay
  392. @Help ("@ExePath\\install.hlp", "HelpUseWin", "EndWin")
  393. @Display
  394. @Cls
  395.  
  396.  
  397.  
  398.  
  399. ***************************************************************************
  400. **** The installation of the Orchid Window Voice Notes and HyperDriver ****
  401. **** are now completed.                                                ****
  402. ***************************************************************************
  403.  
  404.  
  405. @Pause
  406. @EndDisplay
  407. @Goto MenuMain
  408.  
  409. /*--------------- Lotus 1-2-3 Driver Installation (4000) -----------------*/
  410. MenuLotus:
  411.  
  412.  
  413.  
  414. @Help ("@ExePath\\install.hlp", "HelpLotusInst", "EndLotus")
  415. @Goto MenuMain
  416.  
  417. /*----------------- Utility Installation (6000) --------------------------*/
  418. MenuUtility:
  419.  
  420. @ClearOption(6100) /* fscan */
  421. @ClearOption(6200) /* fmode */
  422. @ClearOption(6300) /* fdemo */
  423. @ClearOption(6400) /* all of the above */
  424. @EnableF1(1)
  425.  
  426. @GetOption
  427.  @Cls
  428.  @NameUtil Installation:
  429.  @msgPSAA
  430.  @Option 6100 = " FSCAN.COM"
  431.  @Option 6200 = " FMODE.EXE"
  432.  @Option 6300 = " FDEMO.EXE"
  433.  @Option 6400 = "All of Above"
  434. @EndOption
  435.  
  436. @If (@Esc)
  437.  @Goto MenuMain
  438. @Elseif (@KeyF1)
  439.  @Help ("@ExePath\\install.hlp","HelpUtilMain","EndUtilMain")
  440.  @Goto MenuUtility
  441. @Endif
  442.  
  443. InputDirUtil:
  444. @EnableF1(0)
  445. @GetOutDrive
  446.  @Suppress A
  447.  @Suppress B
  448.  @Cls
  449.  @NameUtil Installation:
  450.  @msgDrive
  451.  
  452.  
  453.  
  454.  
  455.  
  456.  
  457.  
  458.  
  459.  
  460.  
  461.  
  462.  
  463.  
  464.  
  465. /* The @NameUtil may be placed in any directory on your computer
  466.  (e.g., C:\\FAH_UTIL).*/
  467. @EndOutDrive
  468. @If (@Esc) @Goto MenuUtility @Endif
  469.  
  470. @GetSubdir
  471.  @Default = "\\FAH_UTIL"
  472.  @Cls
  473.  @NameUtil Installation
  474.  @msgDir
  475.  
  476.  
  477. @EndSubdir
  478. @If (@Esc) @Goto MenuUtility @Endif
  479.  
  480. @ClearOption(1)
  481. @ClearOption(2)
  482. @If ((@Exists "@OutDrive:\\@SubDir") == 0)
  483.  @EnableF1(0)
  484.  @GetOption
  485.   @LocalWindow (10,39) 
  486.   @Cls
  487.   @NameUtil Installation
  488.   @OutDrive:@SubDir @msgDDNE
  489.   @msgCont
  490.   @Option 1 = "@Reenter"
  491.   @Option 2 = "@Cont"
  492.  @EndOption
  493. @Endif
  494.  
  495. @If (@Esc)
  496.  @Goto MenuUtility
  497. @ElseIf (1 [= @Option)
  498.   @Goto InputDirUtil
  499. @Endif
  500.  
  501. @DefineDisk
  502.  @Label = "Disk #1"
  503.  
  504.  @F fscan.com @O @OutDrive:\@SubDir\*.* @Option 6100 
  505.  @F fmode.exe @O @OutDrive:\@SubDir\*.* @Option 6200 
  506.  @F fdemo.exe @O @OutDrive:\@SubDir\*.* @Option 6300 
  507.  
  508.  @F fscan.com @O @OutDrive:\@SubDir\*.* @Option 6400 
  509.  @F fmode.exe @O @OutDrive:\@SubDir\*.* @Option 6400 
  510.  @F fdemo.exe @O @OutDrive:\@SubDir\*.* @Option 6400 
  511.  
  512. @EndDisk
  513.  
  514. @Help ("@ExePath\\install.hlp","HelpUtilFin","EndUtilFin")
  515. @Goto MenuUtility
  516.  
  517. /*----------------------- CAD system Menu (2000) -------------------------*/
  518. MenuCADsys:
  519. @ClearOption(2100) /*AutoCAD*/
  520. @ClearOption(2200) /*CADKey*/
  521. @ClearOption(2300) /*DataCAD*/
  522. @ClearOption(2400) /*CADVance*/
  523. @ClearOption(2500) /*GenericCADD*/
  524. @ClearOption(2600) /*MicroStation*/
  525. @ClearOption(2700) /*VersaCAD*/
  526. @EnableF1(1)
  527.  
  528. @GetOption
  529.  @LocalWindow (10,40)
  530.  @Cls
  531.  @NameCADsys @msgDDI
  532.  @msgPSAA
  533.  @Option 2100 = "@NameACAD"
  534.  @Option 2200 = "@NameCADKey"
  535.  @Option 2300 = "@NameDataCAD"
  536.  @Option 2400 = "@NameCADVance"
  537.  @Option 2500 = "@NameGenCADD"
  538.  @Option 2600 = "@NameMicroCAD"
  539.  @Option 2700 = "@NameVersaCAD"
  540. @EndOption
  541.  
  542. @If (@Esc)
  543.  @Goto MenuMain
  544. @Elseif (@KeyF1)
  545.  @Goto MenuCADsysHelp
  546. @ElseIf (2100 [= @Option)
  547.  @Goto MenuACAD
  548. @ElseIf (2200 [= @Option)
  549.  @Goto MenuCADKey
  550. @ElseIf (2300 [= @Option)
  551.  @Goto MenuDataCAD
  552. @ElseIf (2400 [= @Option)
  553.  @Goto MenuCADVance
  554. @ElseIf (2500 [= @Option)
  555.  @Goto MenuGenCADD
  556. @ElseIf (2600 [= @Option)
  557.  @Goto MenuMicroCAD
  558. @ElseIf (2700 [= @Option)
  559.  @Goto MenuVersaCAD
  560. @Endif
  561.  
  562. /*------------------ Handle CAD system Help Menu -------------------------*/
  563. MenuCADsysHelp:
  564.  
  565. @If (2100 [= @Option)
  566.  @Goto MenuACAD
  567. @Elseif (2200 [= @Option)
  568.  @Help ("@ExePath\\install.hlp", "HelpCADKey", "EndCADKey")
  569. @Elseif (2300 [= @Option)
  570.  @Help ("@ExePath\\install.hlp", "HelpDataCAD", "EndDataCAD")
  571. @Elseif (2400 [= @Option)
  572.  @Help ("@ExePath\\install.hlp", "HelpCADVance", "EndCADVance")
  573. @Elseif (2500 [= @Option)
  574.  @Help ("@ExePath\\install.hlp", "HelpGenCADD", "EndGenCADD")
  575. @Elseif (2600 [= @Option)
  576.  @Goto MenuMicroCAD
  577. @Elseif (2700 [= @Option)
  578.  @Help ("@ExePath\\install.hlp", "HelpVersaCAD", "EndVersaCAD")
  579. @Endif
  580.  
  581. @Goto MenuCADsys
  582.  
  583. /*------------- AutoCAD 10, 11 Driver Installation (2100)-----------------*/
  584. MenuACAD:
  585. @ClearOption (2110)
  586. @ClearOption (2120)
  587. @ClearOption (2125)
  588. @ClearOption (2130)
  589. @EnableF1(1)
  590.  
  591. @GetOption @Cls
  592.  @NameACAD @msgDDI
  593.  @msgPSAV
  594.  @Option 2130 = "AutoCAD Release 10 & 11 (Protected Mode ADI 4.1)"
  595.  @Option 2120 = "AutoDesk's 3D Studio version 1.0 & 2.0 (PADI 4.1)"
  596.  @Option 2125 = "AutoDesk's AutoShade version 1.5, 2.0 & 2.1 (PADI 4.1)"
  597.  @Option 2110 = "AutoCAD Release 10 & 11 (Real Mode ADI 4.1)"
  598. @EndOption
  599.  
  600. @If (@Esc)
  601.  @Goto MenuCADsys
  602. @ElseIf (@KeyF1)
  603.  @Goto MenuACADHelp
  604. @Endif
  605.  
  606. InputDirACAD:
  607. @EnableF1(0)
  608. @GetOutDrive
  609.  @Suppress A
  610.  @Suppress B
  611.  @Cls
  612.  @NameACAD @msgDDI
  613.  @msgDrive
  614.  
  615.  
  616.  
  617.  
  618.  
  619.  
  620.  
  621.  
  622.  
  623.  
  624.  
  625.  
  626.  
  627.  
  628. /* The @NameACAD display driver may be placed in any
  629.  directory on your computer (e.g., C:\\ACAD)*/
  630. @EndOutDrive
  631. @If (@Esc) @Goto MenuACAD @Endif
  632.  
  633. @GetSubdir
  634.  @Default = "\\ACAD"
  635.  @Cls
  636.  @NameACAD @msgDDI
  637.  @msgDir
  638.  
  639.  
  640. @EndSubdir
  641. @If (@Esc) @Goto MenuACAD @Endif
  642.  
  643. @ClearOption(1)
  644. @ClearOption(2)
  645. @If ((@Exists "@OutDrive:\\@SubDir") == 0)
  646.  @EnableF1(0)
  647.  @GetOption
  648.   @LocalWindow (10,39) 
  649.   @Cls
  650.   @NameACAD @msgDDI
  651.   @OutDrive:@SubDir @msgDDNE
  652.   @msgCont
  653.   @Option 1 = "@Reenter"
  654.   @Option 2 = "@Cont"
  655.  @EndOption
  656. @Endif
  657.  
  658. @If (@Esc)
  659.  @Goto MenuACAD
  660. @ElseIf (1 [= @Option)
  661.   @Goto InputDirACAD
  662. @Endif
  663.  
  664. @DefineDisk
  665.  @Label = "Disk #1"
  666.  @BeginLib FAHDRVVA.001 
  667.  /* ACAD 10 Real Mode */
  668.  @F fadi.exe    @O @OutDrive:\@SubDir\*.* @Option 2110
  669.  /* 3D Studio 386 Mode */
  670.  @F fadi41.exp  @O @OutDrive:\@SubDir\*.* @Option 2120
  671.  /* AutoShade 386 Mode */
  672.  @F fadi41.exp  @O @OutDrive:\@SubDir\*.* @Option 2125
  673.  /* AutoCAD 11 386 Mode */
  674.  @F fadi41.exp  @O @OutDrive:\@SubDir\*.* @Option 2130
  675.  @EndLib 
  676. @EndDisk
  677.  
  678. @If (2110 [= @Option)
  679.  @Help ("@ExePath\\install.hlp", "HelpACAD10r", "EndACAD10r")
  680. @Elseif (2120 [= @Option)
  681.  @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "DSPADI",
  682.          "SET DSPADI=@OutDrive:\\@SubDir\\fadi41.exp", "REPLACE")
  683.  @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "DOSX",
  684.          "SET DOSX=-CALLB 2", "REPLACE")
  685.  @Help ("@ExePath\\install.hlp", "Help3ds", "End3ds")
  686. @ElseIf (2125 [= @Option)
  687.  @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "DSPADI",
  688.          "SET DSPADI=@OutDrive:\\@SubDir\\fadi41.exp", "REPLACE")
  689.  @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "RDPADI",
  690.          "SET RDPADI=@OutDrive:\\@SubDir\\fadi41.exp", "REPLACE")
  691.  @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "RCPADI",
  692.          "SET RCPADI=@OutDrive:\\@SubDir\\fadi41.exp", "REPLACE")
  693.  @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "SHADE",
  694.          "SET SHADE=@OutDrive:\\@SubDir\\rmansupt", "REPLACE")
  695.  @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "DOSX",
  696.          "SET DOSX=-CALLB 2", "REPLACE")
  697.  @Help ("@ExePath\\install.hlp", "Helpshade", "Endshade")
  698. @Elseif (2130 [= @Option)
  699.  @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "DSPADI",
  700.          "SET DSPADI=@OutDrive:\\@SubDir\\fadi41.exp", "REPLACE")
  701.  @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "DOSX",
  702.          "SET DOSX=-CALLB 2", "REPLACE")
  703.  @Help ("@ExePath\\install.hlp", "HelpACAD11p", "EndACAD11p")
  704. @EndIf   
  705.               
  706. @Goto MenuACAD
  707.  
  708. /*---------------------- Handle AutoCAD Help Menu -------------------------*/
  709. MenuACADHelp:
  710.  
  711. @If (2110 [= @Option)
  712.  @Help ("@ExePath\\install.hlp", "HelpACAD10r", "EndACAD10r")
  713. @ElseIf (2120 [= @Option)
  714.  @Help ("@ExePath\\install.hlp", "Help3ds", "End3ds")
  715. @Elseif (2125 [= @Option)
  716.  @Help ("@ExePath\\install.hlp", "Helpshade", "Endshade")
  717. @Elseif (2130 [= @Option)
  718.  @Help ("@ExePath\\install.hlp", "HelpACAD11p", "EndACAD11p")
  719. @EndIf   
  720.  
  721. @Goto MenuACAD
  722.  
  723. /*------------------ CADKey Driver Installation (2200) -------------------*/
  724. MenuCADKey:
  725.  
  726. @EnableF1(0)
  727. @GetOutDrive
  728.  @Suppress A
  729.  @Suppress B
  730.  @Cls
  731.  @NameCADKey @msgDDI
  732.  @msgDrive
  733. @EndOutDrive
  734. @If (@Esc) @Goto MenuCADsys @Endif
  735.  
  736. @GetSubdir
  737.  @Default = "\\CADKEY"
  738.  @Cls
  739.  @NameCADKey @msgDDI
  740.  @msgDir
  741.  
  742.  
  743. @EndSubdir
  744. @If (@Esc) @Goto MenuCADKey @Endif
  745.  
  746. /* Check dir */
  747. @ClearOption(1)
  748. @ClearOption(2)
  749. @EnableF1(0)
  750. @GetOption
  751.  @LocalWindow (10,39) 
  752.  @If (@Exists "@OutDrive:\\@SubDir" == 0)
  753.   @Cls
  754.   @NameCADKey @msgDDI
  755.   @OutDrive:@SubDir @msgDDNE
  756.   @msgCont
  757.  @ElseIf (@Exists "@OutDrive:\\@SubDir\\grdev.dat" == 0)
  758.   @Cls
  759.   @NameCADKey @msgDDI
  760.   The grdev.dat file is not found in your input directory:
  761.   @OutDrive:@SubDir
  762.   @NameCADKey @msgNPI
  763.  @Else
  764.   @Goto CopyFileCADKey
  765.  @EndIf
  766.  @Option 1 = "@Reenter"
  767.  @Option 2 = "@Cont"
  768. @EndOption
  769. @If ((@Esc) || (1 [= @Option))
  770.   @Goto MenuCADKey
  771. @Endif
  772.  
  773. CopyFileCADKey:
  774. @Rename ("@OutDrive:\\@Subdir\\grdev.dat","grdev.000")
  775. @DefineDisk
  776.  @Label = "Disk #1"
  777.  @BeginLib FAHDRVVA.001 
  778.  @F ck_911.exe  @O @OutDrive:\@SubDir\*.*
  779.  @F grdev.dat   @O @OutDrive:\@SubDir\*.orc 
  780.  @EndLib 
  781. @EndDisk
  782.  
  783. @Delete ("@OutDrive:\\@Subdir\\grdev.dat")
  784. @CatFiles ("@OutDrive:\\@Subdir\\grdev.dat","@OutDrive:\\@Subdir\\grdev.000")
  785. @CatFiles ("@OutDrive:\\@Subdir\\grdev.dat","@OutDrive:\\@Subdir\\grdev.orc")
  786. @Delete ("@OutDrive:\\@Subdir\\grdev.orc")
  787.                   
  788. @Help ("@ExePath\\install.hlp", "HelpCADKey", "EndCADKey")
  789. @Goto MenuCADsys
  790.  
  791. /*----------------- DataCAD Driver Installation (2300) -------------------*/
  792. MenuDataCAD:
  793.  
  794. @EnableF1(0)
  795. @GetOutDrive
  796.  @Suppress A
  797.  @Suppress B
  798.  @Cls
  799.  @NameDataCAD @msgDDI
  800.  @msgDrive
  801. @EndOutDrive
  802. @If (@Esc) @Goto MenuCADsys @Endif
  803.  
  804. @GetSubdir
  805.  @Default = "\\MTEC\\DRV"
  806.  @Cls
  807.  @NameDataCAD @msgDDI
  808.  @msgDir
  809.  
  810.  
  811. @EndSubdir
  812. @If (@Esc) @Goto MenuDataCAD @Endif
  813.  
  814. /* Check dir */
  815. @ClearOption(1)
  816. @ClearOption(2)
  817. @EnableF1(0)
  818. @GetOption
  819.  @LocalWindow (10,39) 
  820.  @If (@Exists "@OutDrive:\\@SubDir" == 0)
  821.   @Cls
  822.   @NameDataCAD @msgDDI
  823.   @OutDrive:@SubDir @msgDDNE
  824.   @msgCont
  825.  @ElseIf ((@Exists "@OutDrive:\\@SubDir\\drivers.gd2" == 0) ||
  826.       (@Exists "@OutDrive:\\@SubDir\\drivers.gd4" == 0))
  827.   @Cls
  828.   @NameDataCAD @msgDDI
  829.   The drivers.gd2/drivers.gd4 file is not found in your input directory:
  830.   @OutDrive:@SubDir
  831.   DataCAD @msgNPI
  832.  @Else
  833.   @Goto CopyFileDataCAD
  834.  @EndIf
  835.  @Option 1 = "@Reenter"
  836.  @Option 2 = "@Cont"
  837. @EndOption
  838. @If ((@Esc) || (1 [= @Option))
  839.   @Goto MenuDataCAD
  840. @Endif
  841.  
  842. CopyFileDataCAD:
  843. @Rename ("@OutDrive:\\@Subdir\\drivers.gd2","drivers.oc2")
  844. @Rename ("@OutDrive:\\@Subdir\\drivers.gd4","drivers.oc4")
  845. @Delete ("@OutDrive:\\@Subdir\\drivers.gd2")
  846. @Delete ("@OutDrive:\\@Subdir\\drivers.gd4")
  847.  
  848. @DefineDisk
  849.  @Label = "Disk #1"
  850.  @BeginLib FAHDRVVA.001 
  851.  @F ck_911.exe   @O @OutDrive:\@SubDir\*.*
  852.  @F dl_911.exe   @O @OutDrive:\@SubDir\*.*
  853.  @F drivers.gd2  @O @OutDrive:\@SubDir\orchid.*
  854.  @F drivers.gd4  @O @OutDrive:\@SubDir\orchid.*
  855.  @EndLib 
  856. @EndDisk
  857.  
  858. @CatFiles ("@OutDrive:\\@Subdir\\drivers.gd2","@OutDrive:\\@Subdir\\drivers.oc2")
  859. @CatFiles ("@OutDrive:\\@Subdir\\drivers.gd2","@OutDrive:\\@Subdir\\orchid.gd2")
  860. @CatFiles ("@OutDrive:\\@Subdir\\drivers.gd4","@OutDrive:\\@Subdir\\drivers.oc4")
  861. @CatFiles ("@OutDrive:\\@Subdir\\drivers.gd4","@OutDrive:\\@Subdir\\orchid.gd4")
  862. @Delete ("@OutDrive:\\@Subdir\\orchid.gd2")
  863. @Delete ("@OutDrive:\\@Subdir\\orchid.gd4")
  864.  
  865. @Help ("@ExePath\\install.hlp", "HelpDataCAD", "EndDataCAD")
  866. @Goto MenuCADsys
  867.  
  868. /*--------------- CADVance Driver Installation (2400) --------------------*/
  869. MenuCADVance:
  870.  
  871. @EnableF1(0)
  872. @GetOutDrive
  873.  @Suppress A
  874.  @Suppress B
  875.  @Cls
  876.  @NameCADVance @msgDDI
  877.  @msgDrive
  878. @EndOutDrive
  879. @If (@Esc) @Goto MenuCADsys @Endif
  880.  
  881. @GetSubdir
  882.  @Default = "\\CADVANCE"
  883.  @Cls
  884.  @NameCADVance @msgDDI
  885.  @msgDir
  886.  
  887.  
  888. @EndSubdir
  889. @If (@Esc) @Goto MenuCADVance @Endif
  890.  
  891. /* Check dir */
  892. @ClearOption(1)
  893. @ClearOption(2)
  894. @If ((@Exists "@OutDrive:\\@SubDir") == 0)
  895.   @EnableF1(0)
  896.   @GetOption
  897.   @LocalWindow (10,39)
  898.   @Cls
  899.   @NameCADVance @msgDDI
  900.   @OutDrive:@SubDir @msgDDNE
  901.   @msgCont
  902.   @Option 1 = "@Reenter"
  903.   @Option 2 = "@Cont"
  904.   @EndOption
  905. @Endif
  906.  
  907. @If ((@Esc) || (1 [= @Option))
  908.   @Goto MenuCADVance
  909. @Endif
  910.  
  911. @DefineDisk
  912.  @Label = "Disk #1"
  913.  @BeginLib FAHDRVVA.001 
  914.  @F cdv911.drv      @O @OutDrive:\@SubDir\*.*
  915.  @EndLib 
  916. @EndDisk
  917.  
  918. /* Set s31_911=x in autoexec.bat, x = {0,1,2,3,4,5,7} */
  919. @Goto SetS3911
  920.  
  921. EndCADVance:
  922. @Help ("@ExePath\\install.hlp", "HelpCADVance", "EndCADVance")
  923. @Goto MenuCADsys
  924.  
  925. /*-------------- Generic CADD Driver Installation (2500) -----------------*/
  926. /* Note: f1280s.vgd is taken away */
  927. MenuGenCADD:
  928.  
  929. @EnableF1(0)
  930. @GetOutDrive
  931.  @Suppress A
  932.  @Suppress B
  933.   @Cls
  934.   @NameGenCADD @msgDDI
  935.   @msgDrive
  936. @EndOutDrive
  937. @If (@Esc) @Goto MenuCADsys @Endif
  938.  
  939. @GetSubdir
  940.  @Default = "\\GENERIC"
  941.  @Cls
  942.  @NameGenCADD @msgDDI
  943.  @msgDir
  944.  
  945.  
  946. @EndSubdir
  947. @If (@Esc) @Goto MenuGenCADD @Endif
  948.  
  949. /* Check dir */
  950. @ClearOption(1)
  951. @ClearOption(2)
  952. @If (@Exists "@OutDrive:\\@SubDir" == 0)
  953.  @EnableF1(0)
  954.  @GetOption @Cls
  955.   @LocalWindow (10,39) 
  956.   @NameGenCADD @msgDDI
  957.   @OutDrive:@SubDir @msgDDNE
  958.   @msgCont
  959.  
  960.   @Option 1 = "@Reenter"
  961.   @Option 2 = "@Cont"
  962.  @EndOption
  963. @Endif
  964.  
  965. @If ((@Esc) || (1 [= @Option))
  966.  @Goto MenuGenCADD
  967. @Endif
  968.  
  969. @DefineDisk
  970.  @Label = "Disk #1"
  971.  @BeginLib FAHDRVVA.001 
  972.  @F f1280l.vgd  @O @OutDrive:\@SubDir\*.*
  973.  @EndLib 
  974. @EndDisk
  975.  
  976. /* Set s31_911=x in autoexec.bat, x = {0,1,2,3,4,5,7} */
  977. @Goto SetS3911
  978.  
  979. EndGenCADD:
  980. @Help ("@ExePath\\install.hlp", "HelpGenCADD", "EndGenCADD")
  981. @Goto MenuCADsys
  982.  
  983. /*--- MicroStation Driver (real and protected mode) Instllation (2600) ---*/
  984. MenuMicroCAD:
  985.  
  986. @ClearOption (2610) 
  987. @ClearOption (2620)
  988. @EnableF1(1)
  989. @GetOption @Cls
  990.  @NameMicroCAD @msgDDI
  991.  @msgPSAV
  992.  @Option 2610 = "MicroStation (Real Mode)"
  993.  @Option 2620 = "MicroStation (Protected Mode)"
  994. @EndOption
  995.  
  996. @If (@Esc)
  997.  @Goto MenuCADsys
  998. @ElseIf (@KeyF1)
  999.  @Goto MenuMicroCADHelp
  1000. @Endif
  1001.  
  1002. InputDirMicroCAD:
  1003. @EnableF1(0)
  1004. @GetOutDrive
  1005.  @Suppress A
  1006.  @Suppress B
  1007.  @Cls
  1008.  @NameMicroCAD @msgDDI
  1009.  @msgDrive
  1010. @EndOutDrive
  1011. @If (@Esc) @Goto MenuMicroCAD @Endif
  1012.  
  1013. @GetSubdir
  1014.  @Default = "\\USTATION\\DRIVERS"
  1015.  @Cls
  1016.  @NameMicroCAD @msgDDI
  1017.  @msgDir
  1018.  
  1019.  
  1020. @EndSubdir
  1021. @If (@Esc) @Goto InputDirMicroCAD @Endif
  1022.  
  1023. @ClearOption(1)
  1024. @ClearOption(2)
  1025. @If (@Exists "@OutDrive:\\@SubDir" == 0)
  1026.  @EnableF1(0)
  1027.  @GetOption
  1028.   @LocalWindow (10,39)
  1029.   @Cls
  1030.   @NameMicroCAD @msgDDI
  1031.   @OutDrive:@SubDir @msgDDNE
  1032.   @msgCont
  1033.   @Option 1 = "@Reenter"
  1034.   @Option 2 = "@Cont"
  1035.  @EndOption
  1036. @Endif
  1037.  
  1038. @If ((@Esc) || (1 [= @Option))
  1039.  @Goto InputDirMicroCAD
  1040. @Endif
  1041.  
  1042. @DefineDisk
  1043.  @Label = "Disk #1"
  1044.  @BeginLib FAHDRVVA.001 
  1045.   @F mgls3.exe   @O @OutDrive:\@SubDir\*.* @Option 2610
  1046.   @F mgls3.mgl   @O @OutDrive:\@SubDir\*.* @Option 2610
  1047.   @F remove.exe  @O @OutDrive:\@SubDir\*.* @Option 2610
  1048.  
  1049.   @F mgl911.exp  @O @OutDrive:\@SubDir\*.* @Option 2620
  1050.   @F mgl911.ma   @O @OutDrive:\@SubDir\*.* @Option 2620
  1051.   @F mgl911.mgl  @O @OutDrive:\@SubDir\*.* @Option 2620 
  1052.  @EndLib 
  1053. @EndDisk
  1054.  
  1055. /* Set s31_911=x in autoexec.bat, x = {0,1,2,3,4,5,7} */
  1056. @Goto SetS3911
  1057.  
  1058. EndMicroCAD:
  1059.  
  1060. @If (2610 [= @Option)
  1061.  @Help ("@ExePath\\install.hlp", "HelpMicroCADr", "EndMicroCADr")
  1062. @ElseIf (2620 [= @Option)
  1063.  @Help ("@ExePath\\install.hlp", "HelpMicroCADp", "EndMicroCADp")
  1064. @EndIf   
  1065.  
  1066. @Goto MenuCADsys
  1067.  
  1068. /*------------------ Handle MicroStation Help Menu -----------------------*/
  1069. MenuMicroCADHelp:
  1070.  
  1071. @If (2610 [= @Option)
  1072.  @Help ("@ExePath\\install.hlp", "HelpMicroCADr", "EndMicroCADr")
  1073. @ElseIf (2620 [= @Option)
  1074.  @Help ("@ExePath\\install.hlp", "HelpMicroCADp", "EndMicroCADp")
  1075. @EndIf   
  1076.  
  1077. @Goto MenuMicroCAD
  1078.  
  1079.  
  1080. /*-------------- VersaCAD Driver Installation (2700) ---------------------*/
  1081. MenuVersaCAD:
  1082.  
  1083. @EnableF1(1)
  1084. @ClearOption (2710)
  1085. @ClearOption (2750)
  1086. @GetOption @Cls
  1087.  @NameVersaCAD @msgDDI
  1088.  @msgPSAV
  1089.  @Option 2750 = "VersaCAD 386 (Protected Mode)"
  1090.  @Option 2710 = "VersaCAD Designer (Real Mode)"
  1091. @EndOption
  1092.  
  1093. @If (@Esc)
  1094.  @Goto MenuCADsys
  1095. @Elseif (@KeyF1)
  1096.  @Help ("@ExePath\\install.hlp", "HelpVersaCAD", "EndVersaCAD")
  1097.  @Goto MenuVersaCAD
  1098. @Endif
  1099.  
  1100. InputDirVersaCAD:
  1101. @EnableF1(0)
  1102. @GetOutDrive
  1103.  @Suppress A
  1104.  @Suppress B
  1105.  @Cls
  1106.  @NameVersaCAD @msgDDI
  1107.  @msgDrive
  1108. @EndOutDrive
  1109. @If (@Esc) @Goto MenuVersaCAD @Endif
  1110.  
  1111. @GetSubdir
  1112.  @Default = "\\VCAD"
  1113.  @Cls
  1114.  @NameVersaCAD @msgDDI
  1115.  @msgDir
  1116.  
  1117.  
  1118. @EndSubdir
  1119. @If (@Esc) @Goto InputDirVersaCAD @Endif
  1120.  
  1121. @ClearOption(1)
  1122. @ClearOption(2)
  1123. @If ((@Exists "@OutDrive:\\@SubDir") == 0)
  1124.  @EnableF1(0)
  1125.  @GetOption
  1126.  @LocalWindow (10,39)
  1127.  @Cls
  1128.   @NameVersaCAD @msgDDI
  1129.   @OutDrive:@SubDir @msgDDNE
  1130.   @msgCont
  1131.   @Option 1 = "@Reenter"
  1132.   @Option 2 = "@Cont"
  1133.  @EndOption
  1134. @Endif
  1135. @If ((@Esc) || (1 [= @Option))
  1136.  @Goto InputDirVersaCAD
  1137. @Endif
  1138.  
  1139. @DefineDisk
  1140.  @Label = "Disk #1"
  1141.  @BeginLib FAHDRVVA.001 
  1142.  @F remove.exe  @O @OutDrive:\@SubDir\*.*
  1143.  @F vc2_911.com @O @OutDrive:\@SubDir\*.* @Option 2710
  1144.  @F vcadreal.cfg  @O @OutDrive:\@SubDir\*.* @Option 2710
  1145.  @F vc3_911.com @O @OutDrive:\@SubDir\*.* @Option 2750
  1146.  @F vcad386.cfg @O @OutDrive:\@SubDir\*.* @Option 2750
  1147.  @F vcad386.bat @O @OutDrive:\*.* @Option 2750
  1148.  @EndLib 
  1149. @EndDisk
  1150.                   
  1151. @Help ("@ExePath\\install.hlp", "HelpVersaCAD", "EndVersaCAD")
  1152. @Goto MenuCADsys
  1153.  
  1154. /*---------------- Desktop Publishing Menu (3000) ------------------------*/
  1155. MenuDesktop:
  1156.  
  1157. @ClearOption(3100)
  1158. @ClearOption(3200)
  1159. @EnableF1(1)
  1160. @GetOption
  1161. @Cls
  1162.  @NameDesk @msgDDI
  1163.  @msgPSAA
  1164.  @Option 3100 = "@NameVentura"
  1165.  @Option 3200 = "@NameGem"
  1166. @EndOption
  1167.  
  1168. @If (@Esc)
  1169.  @Goto MenuMain
  1170. @Elseif (@KeyF1)
  1171.  @Goto MenuDesktopHelp 
  1172. @Elseif (3100 [= @Option)
  1173.  @Goto MenuVentura
  1174. @Else
  1175.  @Goto MenuGem
  1176. @Endif
  1177.  
  1178. /*-------------------- Handles Desktop Publishing Help Menu --------------*/
  1179. MenuDesktopHelp:
  1180.  
  1181. @If (3100 [= @Option)
  1182.  @Help ("@ExePath\\install.hlp", "HelpVentura", "EndVentura")
  1183. @Elseif (3200 [= @Option)
  1184.  @Help ("@ExePath\\install.hlp", "HelpGem", "EndGem")
  1185. @Endif
  1186.  
  1187. @Goto MenuDesktop
  1188.  
  1189. /*-------------- Ventura Publisher Driver Installation (3100) ------------*/
  1190. MenuVentura:
  1191.  
  1192. @EnableF1(0)
  1193. @GetOutDrive
  1194.  @Suppress A
  1195.  @Suppress B
  1196.   @Cls
  1197.   @NameVentura @msgDDI
  1198.   @msgDrive
  1199. @EndOutDrive
  1200. @If (@Esc) @Goto MenuDesktop @Endif
  1201.  
  1202. @GetSubdir
  1203.  @Default = "\\VENTURA"
  1204.  @Cls
  1205.  @NameVentura @msgDDI
  1206.  @msgDir
  1207.  
  1208.  
  1209. @EndSubdir
  1210. @If (@Esc) @Goto MenuVentura @Endif
  1211.  
  1212. @ClearOption(1)
  1213. @ClearOption(2)
  1214. @If (@Exists "@OutDrive:\\@SubDir" == 0)
  1215.  @EnableF1(0)
  1216.  @GetOption @Cls
  1217.   @LocalWindow (10,39) 
  1218.   @NameVentura @msgDDI
  1219.   @OutDrive:@SubDir @msgDDNE
  1220.   @msgCont
  1221.   @Option 1 = "@Reenter"
  1222.   @Option 2 = "@Cont"
  1223.  @EndOption
  1224. @Endif
  1225.  
  1226. @If ((@Esc) || (1 [= @Option))
  1227.  @Goto MenuVentura
  1228. @Endif
  1229.  
  1230. @DefineDisk
  1231.  @Label = "Disk #1"
  1232.  @BeginLib FAHDRVVA.001 
  1233.  @F sdgemvp.vga @O @OutDrive:\@SubDir\*.*
  1234.  @F sysfont.bg  @O @OutDrive:\@SubDir\*.*
  1235.  @EndLib 
  1236. @EndDisk
  1237.  
  1238. /* Undone:
  1239.    Modify vp.bat/vpprof.bat
  1240. */
  1241.  
  1242. /* Set S31_911=x in autoexec.bat, x = {0,1,2,3,4} */
  1243. @Goto SetS3911
  1244.  
  1245. EndVentura:                               
  1246. @Help ("@ExePath\\install.hlp", "HelpVentura", "EndVentura")
  1247. @Goto MenuDesktop
  1248.  
  1249. /*-------------- Gem Desktop Driver Installation (3200) ------------------*/
  1250. MenuGem:
  1251.  
  1252. @EnableF1(0)
  1253. @GetOutDrive
  1254.  @Suppress A
  1255.  @Suppress B
  1256.   @Cls
  1257.   @NameGem @msgDDI
  1258.   @msgDrive
  1259. @EndOutDrive
  1260. @If (@Esc) @Goto MenuDesktop @Endif
  1261.  
  1262. @GetSubdir
  1263.  @Default = "\\GEMAPPS\\GEMSYS"
  1264.  @Cls
  1265.  @NameGem @msgDDI
  1266.  @msgDir
  1267.  
  1268.  
  1269. @EndSubdir
  1270. @If (@Esc) @Goto MenuGem @Endif
  1271.  
  1272. /* Check dir */
  1273. @ClearOption(1)
  1274. @ClearOption(2)
  1275. @If ((@Exists "@OutDrive:\\@SubDir") == 0)
  1276.  @EnableF1(0)
  1277.  @GetOption @Cls
  1278.   @LocalWindow (10,39) 
  1279.   @NameGem @msgDDI
  1280.   @OutDrive:@SubDir @msgDDNE
  1281.   @msgCont
  1282.   @Option 1 = "@Reenter"
  1283.   @Option 2 = "@Cont"
  1284.  @EndOption
  1285. @Endif
  1286.  
  1287. @If ((@Esc) || (1 [= @Option))
  1288.  @Goto MenuGem
  1289. @Endif
  1290.  
  1291. @Rename ("@OutDrive:\\@SubDir\\sd*.vga","sd*.bak")
  1292. @DefineDisk
  1293.  @Label = "Disk #1"
  1294.  @BeginLib FAHDRVVA.001 
  1295.  @F sdgemvp.vga @O @OutDrive:\@SubDir\*.*
  1296.  @F sysfont.bg  @O @OutDrive:\@SubDir\*.*
  1297.  @EndLib 
  1298. @EndDisk
  1299.  
  1300. /* Set S31_911=x in autoexec.bat, x = {0,1,2,3,4} */
  1301. @Goto SetS3911
  1302.  
  1303. EndGem:
  1304. @Help ("@ExePath\\install.hlp", "HelpGem", "EndGem")
  1305. @Goto MenuDesktop
  1306.  
  1307. /*--------------- Word Processing Main Menu (5000) -----------------------*/
  1308. MenuWordProcess:
  1309.  
  1310. @ClearOption(5100)
  1311. @ClearOption(5200)
  1312. @ClearOption(5300)
  1313. @EnableF1(1)
  1314. @GetOption
  1315. @Cls
  1316.  @NameWord @msgDDI
  1317.  @msgPSAA
  1318.  @Option 5100 = "@NameWP"
  1319.  @Option 5200 = "@NameMSWord"
  1320.  @Option 5300 = "@NameWS"
  1321. @EndOption
  1322.  
  1323. @If (@Esc)
  1324.  @Goto MenuMain
  1325. @Elseif (@KeyF1)
  1326.  @Goto MenuWordHelp
  1327. @Elseif (5100 [= @Option)
  1328.  @Goto MenuWP
  1329. @Elseif (5200 [= @Option)
  1330.  @Goto MenuMSWord
  1331. @Else
  1332.  @Goto MenuWS
  1333. @Endif
  1334.  
  1335. /*-------------------- Handles Word Processing Menu Help ------------------*/
  1336. MenuWordHelp:
  1337.  
  1338. @If (5100 [= @Option)
  1339.  @Help ("@ExePath\\install.hlp", "HelpWP", "EndWP")
  1340. @Elseif (5200 [= @Option)
  1341.  @Help ("@ExePath\\install.hlp", "HelpMSWord", "EndMSWord")
  1342. @Else
  1343.  @Help ("@ExePath\\install.hlp", "HelpWS", "EndWS")
  1344. @Endif
  1345.  
  1346. @Goto MenuWordProcess
  1347.  
  1348. /*----------------- WordPerfect Driver Installation (5100) ---------------*/
  1349. MenuWP:
  1350.  
  1351. @EnableF1(0)
  1352. @GetOutDrive
  1353.  @Suppress A
  1354.  @Suppress B
  1355.   @Cls
  1356.   @NameWP @msgDDI
  1357.   @msgDrive
  1358. @EndOutDrive
  1359. @If (@Esc) @Goto MenuWordProcess @Endif
  1360.  
  1361. @GetSubdir
  1362.  @Default = "\\WP"
  1363.  @Cls
  1364.  @NameWP @msgDDI
  1365.  @msgDir
  1366.  
  1367.  
  1368. @EndSubdir
  1369. @If (@Esc) @Goto MenuWP @Endif
  1370.  
  1371. @ClearOption(1)
  1372. @ClearOption(2)
  1373. @If ((@Exists "@OutDrive:\\@SubDir") == 0)
  1374.  @EnableF1(0)
  1375.  @GetOption @Cls
  1376.   @LocalWindow (10,39) 
  1377.   @NameWP @msgDDI
  1378.   @OutDrive:@SubDir @msgDDNE
  1379.   @msgCont
  1380.   @Option 1 = "@Reenter"
  1381.   @Option 2 = "@Cont"
  1382.  @EndOption
  1383. @Endif
  1384.  
  1385. @If ((@Esc) || (1 [= @Option))
  1386.  @Goto MenuWP
  1387. @Endif
  1388.  
  1389. @DefineDisk
  1390.  @Label = "Disk #1"
  1391.  @BeginLib FAHDRVVA.001 
  1392.  @F wpgraph.vrs @O @OutDrive:\@SubDir\*.* 
  1393.  @F wptext.vrs @O @OutDrive:\@SubDir\*.* 
  1394.  @EndLib 
  1395. @EndDisk
  1396.  
  1397. @Help ("@ExePath\\install.hlp", "HelpWP", "EndWP")
  1398. @Goto MenuWordProcess
  1399.  
  1400. /*------------ Microsoft Word Driver Installation (5200) -----------------*/
  1401. MenuMSWord:
  1402.  
  1403. @EnableF1(0)
  1404. @GetOutDrive
  1405.  @Suppress A
  1406.  @Suppress B
  1407.   @Cls
  1408.   @NameMSWord @msgDDI
  1409.   @msgDrive
  1410. @EndOutDrive
  1411. @If (@Esc) @Goto MenuWordProcess @Endif
  1412.  
  1413. @GetSubdir
  1414.  @Default = "\\WORD"
  1415.  @Cls
  1416.  @NameMSWord @msgDDI
  1417.  @msgDir
  1418.  
  1419.  
  1420. @EndSubdir
  1421. @If (@Esc) @Goto MenuMSWord @Endif
  1422.  
  1423. @ClearOption(1)
  1424. @ClearOption(2)
  1425. @If ((@Exists "@OutDrive:\\@SubDir") == 0)
  1426.  @EnableF1(0)
  1427.  @GetOption @Cls
  1428.   @LocalWindow (10,39) 
  1429.   @NameMSWord @msgDDI
  1430.   @OutDrive:@SubDir @msgDDNE
  1431.   @msgCont
  1432.   @Option 1 = "@Reenter"
  1433.   @Option 2 = "@Cont"
  1434.  @EndOption
  1435. @Endif
  1436.  
  1437. @If ((@Esc) || (1 [= @Option))
  1438.  @Goto MenuMSWord
  1439. @Endif
  1440.  
  1441. @DefineDisk
  1442.  @Label = "Disk #1"
  1443.  @BeginLib FAHDRVVA.001 
  1444.  @F screen.vid @O @OutDrive:\@SubDir\*.* 
  1445.  @EndLib 
  1446. @EndDisk
  1447.  
  1448. @Help ("@ExePath\\install.hlp", "HelpMSWord", "EndMSWord")
  1449. @Goto MenuWordProcess
  1450.  
  1451. /*----------------- WordStar Driver Installation (5300) ------------------*/
  1452. MenuWS:
  1453.  
  1454. @EnableF1(0)
  1455. @GetOutDrive
  1456.  @Suppress A
  1457.  @Suppress B
  1458.   @Cls
  1459.   @NameWS @msgDDI
  1460.   @msgDrive
  1461. @EndOutDrive
  1462. @If (@Esc) @Goto MenuWordProcess @Endif
  1463.  
  1464. @GetSubdir
  1465.  @Default = "\\WS"
  1466.  @Cls
  1467.  @NameWS @msgDDI
  1468.  @msgDir
  1469.  
  1470.  
  1471. @EndSubdir
  1472. @If (@Esc) @Goto MenuWS @Endif
  1473.  
  1474. @ClearOption(1)
  1475. @ClearOption(2)
  1476. @If (@Exists "@OutDrive:\\@SubDir" == 0)
  1477.  @EnableF1(0)
  1478.  @GetOption @Cls
  1479.   @LocalWindow (10,39) 
  1480.   @NameWS @msgDDI
  1481.   @OutDrive:@SubDir @msgDDNE
  1482.   @msgCont
  1483.   @Option 1 = "@Reenter"
  1484.   @Option 2 = "@Cont"
  1485.  @EndOption
  1486. @Endif
  1487.  
  1488. @If ((@Esc) || (1 [= @Option))
  1489.  @Goto MenuWS
  1490. @Endif
  1491.  
  1492. @DefineDisk
  1493.  @Label = "Disk #1"
  1494.  @BeginLib FAHDRVVA.001 
  1495.  @F preview.msg @O @OutDrive:\@SubDir\*.* 
  1496.  @F preview.ovr @O @OutDrive:\@SubDir\*.* 
  1497.  @F f12806.wgd  @O @OutDrive:\@SubDir\*.* 
  1498.  @F f12807.wgd  @O @OutDrive:\@SubDir\*.* 
  1499.  @F f12809.wgd  @O @OutDrive:\@SubDir\*.* 
  1500.  @F f12801k.wgd @O @OutDrive:\@SubDir\*.* 
  1501.  @EndLib 
  1502. @EndDisk
  1503.  
  1504. @ClearOption (1)
  1505. @ClearOption (2)
  1506. @ClearOption (3)
  1507. @ClearOption (4)
  1508. @EnableF1(0)
  1509. @GetOption @Cls
  1510.  @NameWS @msgDDI
  1511.  Please Select A Resolution:
  1512.  @Option 4 = "1280 x 1024"
  1513.  @Option 3 = "1280 x 960"
  1514.  @Option 2 = "1024 x 768"
  1515.  @Option 1 = " 800 x 600"
  1516. @EndOption
  1517.  
  1518. @If (@Esc)
  1519.  @Goto EndMenuWS
  1520. @Elseif (1 [= @Option)
  1521.  @WriteFile ("@OutDrive:\\@SubDir\\fontid.ctl", "NOSECTION", "CRT_TYPE",
  1522.          "CRT_TYPE=F12806.WGD", "REPLACE")
  1523. @Elseif (2 [= @Option)
  1524.  @WriteFile ("@OutDrive:\\@SubDir\\fontid.ctl", "NOSECTION", "CRT_TYPE",
  1525.          "CRT_TYPE=F12807.WGD", "REPLACE")
  1526. @Elseif (3 [= @Option)
  1527.  @WriteFile ("@OutDrive:\\@SubDir\\fontid.ctl", "NOSECTION", "CRT_TYPE",
  1528.          "CRT_TYPE=F12809.WGD", "REPLACE")
  1529. @Else
  1530.  @WriteFile ("@OutDrive:\\@SubDir\\fontid.ctl", "NOSECTION", "CRT_TYPE",
  1531.          "CRT_TYPE=F12801K.WGD", "REPLACE")
  1532. @Endif
  1533.  
  1534. EndMenuWS:
  1535. @Help ("@ExePath\\install.hlp", "HelpWS", "EndWS")
  1536. @Goto MenuWordProcess
  1537.  
  1538. /*---------- This block sets the S31_911 variable in autoexec.bat ---------*/
  1539. SetS3911:
  1540.  
  1541. @ClearOption (0)
  1542. @ClearOption (1)
  1543. @ClearOption (2)
  1544. @ClearOption (3)
  1545. @ClearOption (4)
  1546. @ClearOption (5)
  1547. @ClearOption (7)
  1548. @EnableF1(0)
  1549. @GetOption
  1550.  @If (2400 [= @Option)
  1551.   @Cls
  1552.   @NameCADVance @msgDDI
  1553.   Please Select a Resolution:
  1554.  @Elseif (2500 [= @Option)
  1555.   @Cls
  1556.   @NameGenCADD @msgDDI
  1557.   Please Select a Resolution:
  1558.  @Elseif (2600 [= @Option)
  1559.   @Cls
  1560.   @NameMicroCAD @msgDDI
  1561.   Please Select a Resolution:
  1562.  @Elseif (3100 [= @Option)
  1563.   @Cls
  1564.   @NameVentura @msgDDI
  1565.   Please Select a Resolution:
  1566.  @Elseif (3200 [= @Option)
  1567.   @Cls
  1568.   @NameGem @msgDDI
  1569.   Please Select a Resolution:
  1570.  @Endif
  1571.    @Option 4 = "1024 x 768,  256 colors"
  1572.    @Option 2 = "800  x 600,  256 colors"
  1573.    @Option 0 = "640  x 480,  256 colors"     
  1574.    @Option 7 = "1280 x 1024, 16  colors"
  1575.    @Option 5 = "1280 x 960,  16  colors"
  1576.    @Option 3 = "1024 x 768,  16  colors"
  1577.    @Option 1 = "800  x 600,  16  colors"
  1578. @EndOption
  1579.  
  1580. @If (@Esc)
  1581.  @Goto EndS3911
  1582. @Elseif (0 [= @Option)
  1583.  @Value(0)
  1584. @Elseif (1 [= @Option)
  1585.  @Value(1)
  1586. @Elseif (2 [= @Option)
  1587.  @Value(2)
  1588. @Elseif (3 [= @Option)
  1589.  @Value(3)
  1590. @Elseif (4 [= @Option)
  1591.  @Value(4)
  1592. @Elseif (5 [= @Option)
  1593.  @Value(5)
  1594. @Else
  1595.  @Value(7)
  1596. @Endif
  1597.  
  1598. @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "S31_911",
  1599.         "SET S31_911=@Value()", "REPLACE")
  1600.  
  1601. EndS3911:
  1602.  
  1603. @If (2400 [= @Option)
  1604.  @Goto EndCADVance
  1605. @Elseif (2500 [= @Option)
  1606.  @Goto EndGenCADD
  1607. @Elseif (2600 [= @Option)
  1608.  @Goto EndMicroCAD
  1609. @Elseif (3100 [= @Option)
  1610.  @Goto EndVentura
  1611. @Elseif (3200 [= @Option)
  1612.  @Goto EndGem
  1613. @Else
  1614.  @Goto MenuCADsys
  1615. #Endif
  1616.  
  1617.  
  1618. /*-------------------- Sample disk build utility ------------------*/
  1619.  
  1620. MenuSample:
  1621. @ClearOption(9010)
  1622. @ClearOption(9020)
  1623. @ClearOption(9030)
  1624. @ClearOption(9040) 
  1625.  @EnableF1(1)
  1626.  @GetOption
  1627.  @Cls
  1628.  @LocalWindow (10,39)   
  1629.   @Option 9010 = "Copy files from Master Drive A: to a Formatted Floppy Drive A:"
  1630.   @Option 9020 = "Copy files from Master Drive A: to a Formatted Floppy Drive B:"
  1631.   @Option 9030 = "Copy files from Master Drive B: to a Formatted Floppy Drive A:"
  1632.   @Option 9040 = "Copy files from Master Drive B: to a Formatted Floppy Drive B:"
  1633.  
  1634.  @EndOption
  1635.  
  1636.  
  1637.  @If (@Esc)
  1638.      @Goto MenuMain
  1639.   @Elseif (@KeyF1)
  1640.      @Help ("@ExePath\\install.hlp", "HelpCopy", "EndCopy")
  1641.   @ElseIf (9010 [=@Option)
  1642.      @Goto MenuAA
  1643.   @ElseIf (9020 [=@Option)
  1644.      @Goto MenuBB
  1645.   @ElseIf (9030 [=@Option)
  1646.      @Goto MenuAA
  1647.   @ElseIf (9040 [=@Option)
  1648.      @Goto MenuBB
  1649. @endif
  1650. @Goto MenuSample
  1651.  
  1652.  
  1653.  
  1654. /*--------------------- Information on AA   -----------------------*/
  1655. MenuAA:
  1656. @EnableF1(0)
  1657. @If (!@DriveExists(C))
  1658.     @Display
  1659.        This program requires a Hard Disk Drive to complete this copy.
  1660.  
  1661.       @Pause
  1662.     @Goto MenuMain
  1663.     @EndDisplay
  1664. @EndIf
  1665. @DefineDisk 
  1666.  @Label = "Disk #1"
  1667.  @BeginLib FAHDRVVA.001 
  1668.   @F ovnplay.exe   @O C:\Fahrenva\temp\*.*  
  1669.   @F speaker.drv   @O C:\Fahrenva\temp\*.*  
  1670.   @F disk.id       @O C:\Fahrenva\temp\*.*  
  1671.   @F installc.dat  @O C:\Fahrenva\temp\install.dat  
  1672.   @F installc.hlp  @O C:\Fahrenva\temp\install.hlp  
  1673.   @F copya.bat     @O C:\Fahrenva\temp\MAKEDISK.BAT  
  1674.  
  1675.  @EndLib
  1676.  @F Finstall.exe   @O C:\Fahrenva\temp\install.exe 
  1677. @EndDisk
  1678.  
  1679. @Display                    
  1680.  @Cls
  1681.   @System "C:\\Fahrenva\\temp\\makedisk.bat"
  1682.  @Cls
  1683.  @Help ("@ExePath\\install.hlp", "HelpCopy", "EndCopy")
  1684.  @Cls
  1685.  
  1686.  
  1687.  
  1688.  
  1689.  
  1690.  
  1691.  Voice Notes Playback Diskette Copy Now Completed....
  1692.     
  1693.     To repeat, just type "MAKEDISK" from the \FAHRENVA\TEMP Subdirectory.
  1694.  
  1695.            Press any key to return to the Main Menu.
  1696.  
  1697.  
  1698.  
  1699.  
  1700.  
  1701.   @Pause
  1702. @EndDisplay
  1703.  
  1704. @Goto MenuMain
  1705.  
  1706.  
  1707.  
  1708. /*--------------------- Information on BB   -----------------------*/
  1709. MenuBB:
  1710. @EnableF1(0)
  1711. @If (!@DriveExists(C))
  1712.     @Display
  1713.        This program requires a Hard Disk Drive to complete this copy.
  1714.  
  1715.       @Pause
  1716.     @Goto MenuMain
  1717.     @EndDisplay
  1718. @EndIf
  1719.  
  1720. @DefineDisk 
  1721.  @Label = "Disk #1"
  1722.  @BeginLib FAHDRVVA.001 
  1723.   @F ovnplay.exe   @O C:\Fahrenva\temp\*.*  
  1724.   @F speaker.drv   @O C:\Fahrenva\temp\*.*  
  1725.   @F disk.id       @O C:\Fahrenva\temp\*.*  
  1726.   @F installc.dat  @O C:\Fahrenva\temp\install.dat  
  1727.   @F installc.hlp  @O C:\Fahrenva\temp\install.hlp  
  1728.   @F copyb.bat     @O C:\Fahrenva\temp\MAKEDISK.BAT  
  1729.  
  1730.  @EndLib
  1731.  @F finstall.exe   @O C:\fahrenva\temp\install.exe 
  1732. @EndDisk
  1733.  
  1734. @Display                    
  1735.  @Cls
  1736.   @System "C:\\fahrenva\\temp\\makedisk.bat"
  1737.  @Cls
  1738.  @Help ("@ExePath\\install.hlp", "HelpCopy", "EndCopy")
  1739.  @Cls
  1740.  
  1741.  
  1742.  
  1743.  
  1744.  
  1745.  
  1746.  Voice Notes Playback Diskette Copy Now Completed....
  1747.     
  1748.     To repeat, just type "MAKEDISK" from the \FAHRENVA\TEMP Subdirectory.
  1749.  
  1750.            Press any key to return to the Main Menu.
  1751.  
  1752.  
  1753.  
  1754.  
  1755.  
  1756.   @Pause
  1757. @EndDisplay
  1758.  
  1759. @Goto MenuMain
  1760.  
  1761.  
  1762.